home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / telecomm / 111 / miscstuf / miscstuf.arc / RUN_PRG.LST < prev   
File List  |  1987-11-27  |  395b  |  22 lines
  1. Procedure Runprg
  2.   Alert 2,"Run external file?",1,"YES|NO",Yn
  3.   If Yn=2
  4.   Endif
  5.   If Yn=1
  6.     @Pickfile
  7.   Endif
  8. Return
  9. Procedure Pickfile
  10.   Fileselect "\*.*","",Rprg$
  11.   Open "I",#4,Rprg$
  12.   Length=Lof(#1)
  13.   If Length>Fre(0)
  14.     A$="Not enough free RAM|to run"+Rprg$
  15.     Alert 1,A$,1,"OK",Dummy
  16.   Endif
  17.   Reserve (Length+20000)-255
  18.   Showm
  19.   Exec 0,Rprg$,"",""
  20.   Showm
  21. Return
  22.